home *** CD-ROM | disk | FTP | other *** search
/ NeXT Education Software Sampler 1992 Fall / NeXT Education Software Sampler 1992 Fall.iso / Programming / Classes / ScrollingTextField / ScrollTextField_Example / Test.m < prev    next >
Encoding:
Text File  |  1992-08-07  |  620 b   |  41 lines
  1.  
  2. /* Generated by Interface Builder */
  3.  
  4. #import "Test.h"
  5. #import <appkit/appkit.h>
  6.  
  7. @implementation Test
  8.  
  9. - doOne:sender
  10. {
  11.     [myTextField setStringValue:"not!"];
  12.     return self;
  13. }
  14.  
  15. - doTwo:sender
  16. {
  17.     [myScrollTextField setStringValue:"Hey, Dude!\nWhatdaya think?"];
  18.     return self;
  19. }
  20.  
  21. - doThree:sender
  22. {
  23.     [myScrollTextField setStringValue:[myTextField stringValue]];
  24.     return self;
  25. }
  26.  
  27. - doSwitch:sender
  28. {
  29.     int t = 2000;
  30.     
  31.     t = t + (100 * [[mySwitch cellAt:0 :0] state]);
  32.     t = t + (10 * [[mySwitch cellAt:1 :0] state]);
  33.     t = t + [[mySwitch cellAt:2 :0] state];
  34.     
  35.     [myTextField setIntValue:t];
  36.     
  37.     return self;
  38. }
  39.  
  40. @end
  41.